Unit BDojoItemFileWriteStoreUnit;

{$mode objfpc}{$H+}

Interface

Uses
  Classes, SysUtils, BDojoSessionUnit;

Type

{ BDojoItemFileWriteStoreClass }

 BDojoItemFileWriteStoreClass = Class(BDojoObjectClass)
  Private
    bData: String;
    bURL: String;
    Procedure SetData(aValue: String);
    Procedure SetURL(aValue: String);
  Public
    //**
    //TODO: Add Data description
    Property Data: String Read bData Write SetData;
    //**
    //TODO: Add URL description
    Property URL: String Read bURL Write SetURL;
    Constructor Build(Const aSession: BDojoSessionClass;
      Const aJSType: String = '');override;
End;

Implementation

{ BDojoItemFileWriteStoreClass }

Procedure BDojoItemFileWriteStoreClass.SetURL(aValue: String);
Begin
  bURL := aValue;
  SetConfig('url', aValue);
End;

Procedure BDojoItemFileWriteStoreClass.SetData(aValue: String);
Begin
  bData := aValue;
  SetConfig('data', aValue, FALSE, TRUE);
End;

Constructor BDojoItemFileWriteStoreClass.Build(
  Const aSession: BDojoSessionClass; Const aJSType: String);
Begin
  If aJSType = '' Then Inherited Build(aSession, 'dojo.data.ItemFileWriteStore')
  Else Inherited Build(aSession, aJSType);
End;

End.

